home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / ShareMailGiftware / DepthMenu / Install < prev    next >
Encoding:
Text File  |  2002-10-07  |  8.5 KB  |  211 lines
  1. ;
  2. ; DepthMenu install script
  3. ; Copyright © 2001-2002 Arkadiusz [Yak] Wahlig
  4. ;
  5. ; $VER: DepthMenu_Install 1.19 (13.07.2002) Arkadiusz [Yak] Wahlig
  6. ;
  7. ; Spanish translation by Javier de las Rivas.
  8.  
  9. (set #app-ver "2.38")
  10. (set #copyright "Copyright © 2001-2002 Arkadiusz [Yak] Wahlig")
  11.  
  12. (IF (= @LANGUAGE "english")
  13. (
  14.  (set #hello (cat "\n\n\n" @app-name " " #app-ver "\n" #copyright "\n\n\n\nThis script will install DepthMenu program\non your hard-disk.") )
  15.  
  16.  (set #dir-question1 "Where should I install the program?")
  17.  (set #dir-question2 "A directory called 'DepthMenu' will be created there.")
  18.  (set #dir-help "Choose a directory, where the DepthMenu program should be installed. The installer will create a directory called 'DepthMenu', where all needed files will be copied.")
  19.  
  20.  (set #languages-question "Which catalogs should be installed?")
  21.  (set #languages-help "DepthMenu's built-in language in english. If you want it to use some other languale you got to choose it now and set it as prefered in your Locale preferences program after installation.")
  22.  
  23.  (set #docs-question "Which documentations should be installed?")
  24.  (set #docs-help "Program documentations are available in different languages. On this screen you can choose, which of them should be installed.")
  25.  
  26.  (set #wbstartup-question "\n\nDo you want to start DepthMenu at system startup?")
  27.  (set #wbstartup-positive "Yes (recomended)")
  28.  (set #wbstartup-negative "No")
  29.  (set #wbstartup-help "If you choose 'Yes', DepthMenu will be started at every system startup. You can always disable it by removing file START_DepthMenu.info from SYS:WBStartup drawer.\n\nIf you choose 'No' you can always enable this feature by placing file START_DepthMenu.info in SYS:WBStartup drawer. In this case you will find this file in DepthMenu's directory.")
  30.  
  31.  (set #start-question "\n\nDo you want to start DepthMenu now?")
  32.  (set #start-help "If you choose 'Yes', DepthMenu will be started and ready to work NOW.")
  33.  
  34.  (set #bye-install "\n\nInstallation successful finished!")
  35.  (set #bye-update "\n\nUpdate successful finished!")
  36.  (set #bye-thanks "\n\nThank you for installing DepthMenu.")
  37. ))
  38. (IF (= @LANGUAGE "polski")
  39. (
  40.  (set #hello (cat "\n\n\n" @app-name " " #app-ver "\n" #copyright "\n\n\n\nTen skrypt zainstaluje program DepthMenu\nna twoim dysku twardym.") )
  41.  
  42.  (set #dir-question1 "Gdzie mam zainstalowaê program?")
  43.  (set #dir-question2 "Zostanie tam stworzony katalog 'DepthMenu'.")
  44.  (set #dir-help "Wybierz katalog, w którym ma byê zainstalowany program. W katalogu, który wybierzesz stworzony zostanie podkatalog 'DepthMenu' a do niego zostanâ skopiowane wszystkie potrzebne pliki.")
  45.  
  46.  (set #languages-question "Które katalogi jëzykowe chcesz zainstalowaê?")
  47.  (set #languages-help "Program posiada wbudowany jëzyk angielski. Jeôli chcesz aby uûywaî innego jëzyka, zaznacz go na tym ekranie a póúniej ustaw jëzyk go jako preferowany w systemowych ustawieniach Locale.")
  48.  
  49.  (set #docs-question "Które wersje dokumentacji chcesz zainstalowaê?")
  50.  (set #docs-help "Program posiada róûne wersje jëzykowe dokumentacji. Na tym ekranie moûesz wybraê, które z nich majâ byê zainstalowane.")
  51.  
  52.  (set #wbstartup-question "\n\nCzy chcesz uruchamiaê program przy starcie systemu?")
  53.  (set #wbstartup-positive "Tak (zalecane)")
  54.  (set #wbstartup-negative "Nie")
  55.  (set #wbstartup-help "Jeôli wybierzesz 'Tak', DepthMenu bëdzie uruchamiany przy kaûdym starcie systemu. Z moûliwoôci tej moûna w kaûdej chwili zrezygnowaê poprzez poprzez wyrzucenie lub przeniesienie pliku START_DepthMenu.info z katalogu WBStartup.\n\nJeôli wybierzesz 'Nie' plik START_DepthMenu.info bëdzie skopiowany do katalogu z programem. Jeôli wiëc zdecydujesz sië na uruchamianie przy starcie systemu to musisz tylko przenieôê jen plik do katalogu WBStartup.")
  56.  
  57.  (set #start-question "\n\nCzy chcesz uruchomiê program teraz?")
  58.  (set #start-help "Jeôli wybierzesz 'Tak', DepthMenu bëdzie uruchomiony i gotowy do pracy w tej chwili.")
  59.  
  60.  (set #bye-install "\n\nInstalacja zakoïczona pomyôlnie!")
  61.  (set #bye-update "\n\nUpdate zakoïczony pomyôlnie!")
  62.  (set #bye-thanks "\n\nDziëkujë za zainstalowanie programu.")
  63. ))
  64. (IF (= @LANGUAGE "español")
  65. (
  66.  (set #hello (cat "\n\n\n" @app-name " " #app-ver "\n" #copyright "\n\n\n\nEste script instalará DepthMenu en su disco duro.") )
  67.  
  68.  (set #dir-question1 "¿Dónde desea instalar el programa?")
  69.  (set #dir-question2 "Se creará un directorio llamado 'DepthMenu'.")
  70.  (set #dir-help "Elija la ubicación donde desea instalar DepthMenu. La instalación creará un directorio llamado 'DepthMenu', donde copiará todos los ficheros necesarios.")
  71.  
  72.  (set #languages-question "¿Qué idiomas desea instalar?")
  73.  (set #languages-help "El idioma de DepthMenu por defecto es el inglés. Si desea usarlo en otro idioma ha de elegirlo ahora.")
  74.  
  75.  (set #docs-question "¿Qué documentación desea instalar?")
  76.  (set #docs-help "Existe la documentación en diferentes idiomas. Elija el/los idioma(s) a instalar.")
  77.  
  78.  (set #wbstartup-question "\n\n¿Desea iniciar DepthMenu al arrancar el equipo?")
  79.  (set #wbstartup-positive "Sí (recomendado)")
  80.  (set #wbstartup-negative "No")
  81.  (set #wbstartup-help "Si elige 'Sí', DepthMenu se iniciará siempre al arranque. Puede desactivarlo eliminado el icono 'START_DepthMenu.info' de 'SYS:WBStartup'.\n\nSi elige 'No' puede activar esta opción copiando el icono 'START_DepthMenu.info' en 'SYS:WBStartup'. Encontrará este icono en el directorio de DepthMenu.")
  82.  
  83.  (set #start-question "\n\n¿Desea iniciar DepthMenu ahora?")
  84.  (set #start-help "Si elige 'Sí', DepthMenu se ejecutará AHORA.")
  85.  
  86.  (set #bye-install"\n\¡Instalación finalizada con éxito!")
  87.  (set #bye-update "\n\n¡Actualización finalizada con éxito!")
  88.  (set #bye-thanks "\n\nGracias por instalar DepthMenu.")
  89. ))
  90.  
  91. ; powitanie
  92. (complete 0)
  93. (message #hello)
  94.  
  95. ; gdzie instalowac?
  96. (set #_dir
  97.  (askdir
  98.   (prompt (cat #dir-question1 " ") #dir-question2)
  99.   (help #dir-help)
  100.   (default "Work:")
  101.   (disk)
  102.  )
  103. )
  104.  
  105. ; tworzenie katalogu, rozpoznanie czy jest stara wersja (update)
  106. (complete 10)
  107. (set #_instdir (tackon #_dir "DepthMenu"))
  108. (set #_update 0)
  109. (if (exists #_instdir) (set #_update 1) (makedir #_instdir) )
  110.  
  111. ; kopiujemy ikone katalogu
  112. (copyfiles
  113.  (source "/DepthMenu.info")
  114.  (dest #_dir)
  115. )
  116.  
  117. ; kopiujemy pliki lokalizacyjne (z pytaniem ktore)
  118. (complete 20)
  119. (copyfiles
  120.  (source "Catalogs")
  121.  (dest (tackon #_instdir "Catalogs"))
  122.  (infos)
  123.  (pattern "~(#?.cd)")
  124.  (prompt #languages-question)
  125.  (help #languages-help)
  126.  (confirm)
  127. )
  128. (copyfiles (source "Catalogs") (dest (tackon #_instdir "Catalogs")) (pattern "#?.cd#?"))
  129. (copyfiles (source "Catalogs.info") (dest #_instdir))
  130.  
  131. ; kopiujemy dokumentacje (z pytaniem ktore)
  132. (complete 30)
  133. (copyfiles
  134.  (source "Docs")
  135.  (dest (tackon #_instdir "Docs"))
  136.  (infos)
  137.  (all)
  138.  (prompt #docs-question)
  139.  (help #docs-help)
  140.  (confirm)
  141. )
  142. (copyfiles (source "Docs.info") (dest #_instdir))
  143.  
  144. ; kopiujemy program (bez ikony)
  145. (complete 40)
  146. (copyfiles (source "DepthMenu") (dest #_instdir))
  147.  
  148. ; kopiujemy katalog modulow
  149. (complete 50)
  150. (copyfiles (source "Modules") (dest (tackon #_instdir "Modules")) (all))
  151. (copyfiles (source "Modules.info") (dest #_instdir))
  152.  
  153. ; ustawiamy defaulttool ikonki START_DepthMenu na wczesniej wybrana lokacje programu
  154. (complete 60)
  155. (tooltype (dest "InstallData/START_DepthMenu") (setdefaulttool (tackon #_instdir "DepthMenu")))
  156.  
  157. ; usuwamy bardzo stara wersje (kiedys DepthMenu bylo umieszczane w WBStartup)
  158. (complete 70)
  159. (if(exists "SYS:WBStartup/DepthMenu")
  160. (
  161.  (delete "SYS:WBStartup/DepthMenu")
  162.  (delete "SYS:WBStartup/DepthMenu.info")
  163. ))
  164.  
  165. ; tu wchodzimy jesli instalujemy pierwszy raz
  166. (if (= #_update 0)
  167. (
  168.  
  169. ; nie powinno tam tego byc, ale noz widelec
  170. (complete 75)
  171. (if(exists "SYS:WBStartup/START_DepthMenu.info")
  172. (
  173.  (delete "SYS:WBStartup/START_DepthMenu.info")
  174. ))
  175.  
  176. ; kopiujemy ikone programu
  177. (complete 80)
  178. (copyfiles (source "DepthMenu.info") (dest #_instdir))
  179.  
  180. ; pytamy sie o odpalanie z WBStartup i jesli tak to kopiujemy ikone
  181. ; jesli nie to kopiujemy ja do katalogu z programem (z plikiem readme)
  182. (complete 85)
  183. (if(askbool
  184.  (prompt #wbstartup-question)
  185.  (choices #wbstartup-positive #wbstartup-negative)
  186.  (help #wbstartup-help)
  187.  )
  188. (copyfiles (source "InstallData/START_DepthMenu.info") (dest "SYS:WBStartup"))
  189. (copyfiles (source "InstallData") (dest #_instdir) (infos) (pattern "START_DepthMenu#?"))
  190. )
  191.  
  192. ))
  193.  
  194. ; pytamy sie o odpalenie programu teraz i odpalamy jesli tak
  195. (complete 90)
  196. (if(askbool
  197.  (prompt #start-question)
  198.  (help #start-help)
  199.  )
  200. (
  201.  (run "InstallData/BreakDM")
  202.  (run (cat "Run <>NIL: " (tackon #_instdir "DepthMenu")))
  203. ))
  204.  
  205. ; kilka slow na pozegnanie z installerem
  206. (complete 100)
  207. (if (= #_update 0)
  208.  (exit (cat #bye-install #bye-thanks) (quiet) )
  209.  (exit (cat #bye-update #bye-thanks) (quiet) )
  210. )
  211.